﻿Namespace Model

    Public Class BooleanEventArgs
        Inherits EventArgs

        Private _State As Boolean
        Public ReadOnly Property State() As Boolean
            Get
                Return _State
            End Get
        End Property

        Public Sub New(ByVal state As Boolean)
            _State = state
        End Sub

    End Class

End Namespace
